home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bitcat / bv2.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form Browse 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   2940
  6.    ClientLeft      =   3660
  7.    ClientTop       =   2385
  8.    ClientWidth     =   2010
  9.    ControlBox      =   0   'False
  10.    Height          =   3345
  11.    Left            =   3600
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2940
  17.    ScaleWidth      =   2010
  18.    Top             =   2040
  19.    Width           =   2130
  20.    Begin CommandButton Command1 
  21.       Caption         =   "&Abort"
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   330
  29.       Left            =   1005
  30.       TabIndex        =   2
  31.       Top             =   2610
  32.       Width           =   1005
  33.    End
  34.    Begin CommandButton Command2 
  35.       Caption         =   "&Change"
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "MS Sans Serif"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   330
  43.       Left            =   0
  44.       TabIndex        =   3
  45.       Top             =   2610
  46.       Width           =   1005
  47.    End
  48.    Begin DirListBox Dir1 
  49.       BackColor       =   &H00808080&
  50.       FontBold        =   0   'False
  51.       FontItalic      =   0   'False
  52.       FontName        =   "MS Sans Serif"
  53.       FontSize        =   8.25
  54.       FontStrikethru  =   0   'False
  55.       FontUnderline   =   0   'False
  56.       ForeColor       =   &H00FFFFFF&
  57.       Height          =   2295
  58.       Left            =   0
  59.       TabIndex        =   1
  60.       Top             =   315
  61.       Width           =   2010
  62.    End
  63.    Begin DriveListBox Drive1 
  64.       BackColor       =   &H00808080&
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   8.25
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColor       =   &H00FFFFFF&
  72.       Height          =   315
  73.       Left            =   0
  74.       TabIndex        =   0
  75.       Top             =   0
  76.       Width           =   2010
  77.    End
  78. End
  79. DefInt A-Z
  80.  
  81. Sub Command1_Click ()
  82. CNC = 1
  83. Browse.Hide
  84. End Sub
  85.  
  86. Sub Command2_Click ()
  87. If Left$(Dir1.Path, 1) <> "\" Then FN$ = Dir1.Path + "\" Else FN$ = Dir1.Path
  88. Browse.Hide
  89. End Sub
  90.  
  91. Sub Drive1_Change ()
  92. On Error GoTo Er:
  93. Dir1.Path = Drive1.Drive
  94. GoTo EANAL:
  95. Er:
  96. MsgBox "Drive Unavailable", 48, "Error"
  97. Drive1.Drive = Dir1.Path
  98. Resume Next
  99. EANAL:
  100. End Sub
  101.  
  102. Sub Form_Load ()
  103. ' Center form on screen
  104. Browse.Left = (Screen.Width / 2) - (Browse.Width / 2)
  105. Browse.Top = (Screen.Height / 2) - (Browse.Height / 2)
  106. End Sub
  107.  
  108.